﻿Public Class frmCapNhatTK

    Private Sub frmCapNhatTK_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        cbxGioiTinh.DataSource = TaiKhoanDAO.GioiTinh()
        cbxGioiTinh.DisplayMember = "gt_GioiTinh"
        cbxGioiTinh.ValueMember = "gt_ID"

        cbxLoaiTaiKhoan.DataSource = TaiKhoanDAO.LoaiTaiKhoan()
        cbxLoaiTaiKhoan.DisplayMember = "ltk_TenLoai"
        cbxLoaiTaiKhoan.ValueMember = "ltk_ID"
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        If (MessageBox.Show("Bạn có chắc chắn thoát không?", "Thoát", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes) Then
            Me.Close()
        End If
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        txtMatKhau.Text = ""
        txtDiaChi.Text = ""
        txtCMND.Text = ""
        txtHoTen.Text = ""
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim tk As TaiKhoan = New TaiKhoan()
        tk.m_strTenDangNhap = lbtendangnhap.Text
        tk.m_strMatKhau = txtMatKhau.Text
        tk.m_intGioiTinh = cbxGioiTinh.SelectedValue.ToString()
        tk.m_intLoaiTK = cbxLoaiTaiKhoan.SelectedValue.ToString()
        tk.m_strCMND = txtCMND.Text
        tk.m_strHoTen = txtHoTen.Text
        tk.m_strDiaChi = txtDiaChi.Text

        Dim kt As Long
        If (txtCMND.Text = "" Or txtDiaChi.Text = "" Or txtMatKhau.Text = "" Or txtHoTen.Text = "") Then
            MessageBox.Show("Bạn không được để trống những trường này!")
            Return
        ElseIf (txtMatKhau.TextLength < 6 And txtMatKhau.TextLength > 20) Then
            MessageBox.Show("Mật khẩu từ 6 tới 20 ký tự!")
            Return
        ElseIf Not Long.TryParse(txtCMND.Text, kt) Then
            MessageBox.Show("Chứng minh nhân dân phải nhập số!")
            Return
        Else
            TaiKhoanDAO.CapNhatTK(tk)
            If (MessageBox.Show("Cập nhật thành công!, Bạn có muốn tiếp tục?", "Thông báo", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes) Then
                Me.Close()
            Else
                Me.Close()
            End If
        End If
    End Sub
End Class